Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00265_Image Display Class.ls

Text File | 1997-07-10 | 724 b | 33 lines

property spritenum, spriteLoc, memberNum, ancestor

on new me, parameterList
  set spritenum to getProp(parameterList, #spritenum)
  set memberNum to 0
  set the visible of sprite spritenum to 0
  return me
end

on init me, newVidMember
  if memberNum > 0 then
  end if
  set memberNum to newVidMember
  puppetSprite(spritenum, 1)
  set the memberNum of sprite spritenum to memberNum
  set the visible of sprite spritenum to 1
  updateStage()
  put "Image:" && the type of sprite spritenum
end

on clear me
  set the visible of sprite spritenum to 0
end

on dispose me
  puppetSprite(spritenum, 0)
  set the visible of sprite spritenum to 1
  if objectp(ancestor) then
    dispose(ancestor)
  end if
  set ancestor to 0
end